home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / PRINTLAB.PRG < prev    next >
Text File  |  1985-12-21  |  4KB  |  186 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET TALK OFF
  7. CLEAR
  8. STORE .T. TO BEVEL
  9. DO WHILE BEVEL
  10.   STORE ' ' TO ANS1
  11.   @ 10,5 say "Do you wish to print labels of friends or business (F or B) ?"
  12.   @ 10,75 GET ANS1
  13.   READ
  14.   CLEAR GETS
  15.   IF UPPER(ANS1) = 'F' .OR. UPPER(ANS1) = 'B'
  16.     STORE .F. TO BEVEL
  17.   ELSE
  18.   ENDIF
  19. ENDDO
  20. CLEAR
  21. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  22. @ 12,5 SAY 'Press any key when ready'
  23. ?
  24. ?
  25. ?
  26. ?
  27. ?
  28. ?
  29. ?
  30. ?
  31. ?
  32. wait
  33. IF UPPER(ANS1) = 'F'
  34.   USE MAIL
  35.   STORE .T. TO BLUE
  36.   DO WHILE BLUE
  37.     STORE ' ' TO INDEX1
  38.     CLEAR
  39.     @ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?"
  40.     @ 10,75 GET INDEX1
  41.     READ
  42.     CLEAR GETS
  43.     IF UPPER(INDEX1)= 'Y'
  44.       INDEX ON LAST TO LAST
  45.       STORE .F. TO BLUE
  46.     ELSE
  47.       IF UPPER(INDEX1) = 'N'
  48.         STORE .F. TO BLUE
  49.       ELSE
  50.       ENDIF
  51.     ENDIF
  52.   ENDDO
  53.   CLEAR
  54.   USE MAIL INDEX LAST
  55.   GO TOP
  56.   SET PRINT ON
  57.   ? CHR(15)
  58.   DO WHILE .NOT. EOF() 
  59.     IF FRIEND <> ' '
  60.       ? TRIM(FIRST), LAST
  61.       ? ADDR1
  62.       ? ADDR2
  63.       ? TRIM(CITY)-"," , STATE, ZIP
  64.       ?
  65.       ?
  66.     ENDIF
  67.     SKIP
  68.   ENDDO
  69.   ? CHR(18)
  70.   SET PRINT OFF
  71.   RETURN
  72. ENDIF
  73. IF UPPER(ANS1) = 'B'
  74.   STORE .T. TO RIGHT
  75.   DO WHILE RIGHT
  76.     STORE ' ' TO P
  77.     CLEAR
  78.     @ 10,5 SAY "Press 'A' To Print Labels For All Categories"
  79.     @ 12,5 SAy "Press 'S' to print selected categories"
  80.     @ 12,70 get P
  81.     READ
  82.     CLEAR GETS
  83.     IF UPPER(P) = 'A' .OR. UPPER(P) = 'S'
  84.       STORE .F. TO RIGHT
  85.     ELSE
  86.     ENDIF
  87.   ENDDO
  88.   IF UPPER(P) = 'A'
  89.     CLEAR
  90.     USE MAIL
  91.     GO TOP
  92.     SET PRINT ON
  93.     ? CHR(15)
  94.     DO WHILE .NOT. EOF() 
  95.       IF FRIEND = ' '
  96.         ? TRIM(FIRST), LAST
  97.         ? COMPANY
  98.         ? ADDR1
  99.         ? TRIM(CITY)-"," , STATE, ZIP
  100.         ?
  101.         ?                                
  102.       ENDIF
  103.       SKIP
  104.     ENDDO
  105.     ? CHR(18)
  106.     SET PRINT OFF
  107.     RETURN
  108.   ENDIF
  109.   IF UPPER(P) = 'S'
  110.     STORE .T. TO CONTINUE
  111.     DO WHILE CONTINUE
  112.       SET PRINT OFF
  113.       STORE .T. TO LEVEL
  114.       DO WHILE LEVEL
  115.         STORE ' ' TO ANS
  116.         STORE ' ' TO CAT
  117.         CLEAR
  118.         ?
  119.         ?
  120.         ?
  121.         ?
  122.         *!! There will be no automatic colon following this prompt string.
  123.         ACCEPT "What Priority Level Are You Searching (1,2, OR 3) ?" TO ANS
  124.         ?
  125.         ?
  126.         *!! There will be no automatic colon following this prompt string.
  127.         ACCEPT "What Category Are You Looking For ?" TO CAT
  128.         IF ANS = '1' .OR. ANS = '2' .OR. ANS = '3'
  129.           STORE 'PROF'-ANS TO PROF
  130.           STORE .F. TO LEVEL
  131.         ELSE
  132.         ENDIF
  133.       ENDDO
  134.       CLEAR
  135.       STORE UPPER(CAT) TO CAT
  136.       USE MAIL
  137.       STORE .T. TO TRUE
  138.       DO WHILE TRUE
  139.         STORE ' ' TO INDEX
  140.         @ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?" GET INDEX
  141.         READ
  142.         IF UPPER(INDEX)= 'Y'
  143.           INDEX ON &PROF TO &PROF
  144.           STORE .F. TO TRUE
  145.         ELSE
  146.           IF UPPER(INDEX) = 'N'
  147.             STORE .F. TO TRUE
  148.           ELSE
  149.           ENDIF
  150.         ENDIF
  151.       ENDDO
  152.       USE MAIL INDEX &PROF
  153.       *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
  154.       FIND &CAT
  155.       CLEAR
  156.       SET PRINT ON
  157.       ? CHR(15)
  158.       STORE .T. TO TRUE
  159.       DO WHILE .NOT. EOF() .AND. &PROF = '&CAT' 
  160.         ? TRIM(FIRST), LAST              
  161.         ? COMPANY                        
  162.         ? ADDR1                          
  163.         ? TRIM(CITY)-"," , STATE, ZIP    
  164.         ?                                
  165.         ?                                
  166.         SKIP
  167.       ENDDO
  168.       CLEAR
  169.       STORE ' ' TO CONT
  170.       @ 10,5 SAY 'Do you wish to continue ?'
  171.       @ 12,5 SAY "Press 'N' to Return to the Menu"
  172.       @ 14,5 SAY 'Press any other key to continue'
  173.       @ 14,40 GET CONT
  174.       READ
  175.       CLEAR GETS
  176.       IF UPPER(CONT) = 'N'
  177.         ? CHR(18)
  178.         SET PRINT OFF
  179.         STORE .F. TO CONTINUE
  180.         RETURN
  181.       ELSE
  182.       ENDDO
  183.     ENDIF
  184.   ENDIF
  185.   
  186.